Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Stepfar.dxr/00134_multiply fields.ls

Text File | 1998-12-16 | 776 b | 24 lines

property field1, field2, productfield, value

on beginSprite me
  set the value of me to 0
end

on enterFrame me
  set X to integer(the text of field ("field" & field1))
  set y to integer(the text of field ("field" & field2))
  set z to X * y
  if z <> the value of me then
    set the value of me to z
    set the text of field ("field" & productfield) to string(z)
  end if
end

on getPropertyDescriptionList me
  set description to [:]
  addProp(description, #field1, [#default: EMPTY, #format: #string, #comment: "Multiply which field:"])
  addProp(description, #field2, [#default: EMPTY, #format: #string, #comment: "Multiply which field:"])
  addProp(description, #productfield, [#default: EMPTY, #format: #string, #comment: "product field:"])
  return description
end